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abr 5 Ri : 
“NTRODUÇÃO 
DO : 
eta da o segundo ligado do boletim do Clube Ze8Q. É cedo ainda para fazer o balanço 
iesta iniciativa, pois ela depende fundamenta lmente dos seus aderentes, a da sua ca 


“ 


acidade para criar “coisas novas” e 


udió momento. E fez ETR, a crftica again, quer «o aparecimento do Clube, 
áios em Relação ao boletime,. iss | 


“as as bina, as Cordsacsás) as ana novas terão de surgir, sob pena de que a 
sublicação ou a actividade do Clube sejam coisas dirigidas automaticamente sem re- 
-eber o sinal dos pnsabo roms, a dos resultados obtidose | 


js aderentes cobrem 4 os distritos do Porto, Viana do Castelo, Braga, Coinbra, Cas 
telo Branco, Setúbal,Aveiro, Lisboa, Faro e Funchal, mas O número de assinantes do 
meletim em relação Às despesas que a sua publicação (modest fssima) acarreta é aine 


da insuficientse 


Vai ser necessário um bom esforço para a divulgação do Clube e aumento urgente do 


número de aderentes a esta iniciativas 


No próximo nímero será iniciada a divulgação dos princípios de Programação Estrutu- 
rada - Novas linguagens a usar com o ZX81 - Às. “ferramentas do Programador” (novos 


programas) - Às ligações externas do ZX81 (hardware) € programas diverãos. 


Pensamos que no próximo número será dado um salto qualitativo no aiindido do bole- 


time Esperemos é que os, utílizadores do ZX81 tombém assim o entendame 


e -— es e em mm q 


— | — e a es 


à 
SS DD e e TT a Te 


UTILIZAÇÃO DA 


MEMÓRIA. 


.- 
é A%,uls 








Tem havído no mercado da informátisa 
uma grande procura das memórias ZX-81. 
Neste artigo, tratamos de questões re=- 
lacíonadas com o modo de utilizar ao mí 
ximo a memória, em função do tipo de 
trabalho que executar. Serão levantadas 
algumas questões sobre memórias RAM, a 









que responderemos. 






a 


e Tenho uma memória de lk RAM e, fre 
quentemente, a capacidade de membric: 
de que disponho é insuficiente para 
trabalhar determinados programas. E= 
xíste algum processo para determinar 
o) ago 1 necessário a um programa? 

r 


Ê possível encurtar um programa sem 
alterar a sua função? 


A resposta à primeira questão é não. 
O espaço necessário ao programa é da 
do assim: 

PRINT PEEK 16396+256“PELK 16397-16509, 
Esta linha determina o ponto em que 
acaba a área do programa = contido : 
em D FILE em 16396 e 16397 = e sub= 
traí o ponto de infcio da área do 
programa - isto é, 16509; Mas, se se 
quer executar Oo programa e exibir a 
informação, então será necessário 
mais espaço. 

No ZX81, o ficheiro ocupa 25 bytes e 
mais um por cada caracter no écran - 
- incluindo espaços em branco origi- 
nados por PRINT AT, TAB e vírgulas 
em instruções com PRINT. É necessário 
dispór também de uma certa capacída- 
de para iíncluír a área das variáveis, 
a zona de cálculos e o “stack” (pie 
lha) da máquina e dos GOSUB, 

A quantidade de espaço livre determé 
na=-se, em qualquer altura, achando A 
diferença entre o ponto de armazenas 
gem (SP) e o ponto de SIKEND - em 
16412, Infelizmente, o ponto SP pode 
ser obtido usando apenas uma rotina 
em linguagem máquiide 

De qualquer modo, a utilização da ma- 
mória não é uniforme durante a execu- 


ção e, portanto, a quantidade de espaços 
livres varia também; Assim, 6 nosso con- 
selho é que se quiser saber o espaço que 
o seu programa ocupá, deverá observar 

D FILE, dando entrada a PRINT PLEK 1639: 
+256” PRINT PEEK 16397, 

Quanto maior for o seu programa, melhore: 
serão os resultados. Em alternativa, se 
quiser ter uma idéia da área ocupada apé: 
a execução de um programa, observe SIKENI 
dando entrada a PRINT PEX 16412+256º PR! 
PEEX 16413. - E E à tod ESSE att 

A diferença entre o resultado e RAMICP - 
- 17408 na memória de Ik ZX=81 e 32768 na 
16K RAM -— dá a quantidade aproximada de e 
paços lívres, incluíndo cerca de 100 byte 
para armazenagem Ts o eo 

Há muitas tácticas para tornar um progra- 
ma mais curto sem alterar a sua função, 
mas para que os resultados sejam satisfa- 
tórios é necessário compreender a lingua- 
gem usada para armazenar programas em 
BASIC. Há três caminhos: 

- Cada caracter - letras, sinais de pont: 
ção, caracteres gráficos - ocupa 1 byte, 
tal como PRINT, LET, FOR. 

- Os números são inseridos quer em forma 
caracteres, quer em forma nu-éricae No p: 
meiro caso, usa-se um byte por cada dfgi: 
seguido de um byte com código 126, e depc 
S bytes contendo a forma numéricas 

- Cada linha tem 5 bytes; 2 que contêm o 
mero da linha, seguidos de outros 2 que i 
clusm a extensão do resto da línha e, fi- 
nalmente, 1 byte que contém o némero dec: 
mal 118 no fim da lánha (equivalente ao 
New Line). 

Para ter uma ídéia de como concretizar es 
tas normas, ponha o ZX81 a funcionar e ir 
troduza: 

10 FOR A = 16509 TO 16548 

20 PRINT CER PEZK A 

30 NEXT A 

Lste programa exibe o conteúdo dos primei 
ros 40 bytes da sua área, 

Para tornar um programa mais curto recome 
damos: 

- Evite instruções RE», e faça as instruçõ 
PRINT o mais pequenas possível 

- Sc possível, use funções para estabelec: 
valores de variáveis; Por exemplo: 

LET A = CODE"K” é preferível a LET À = 48 


- Reduza ao mínimo o número de variáveis, 
usando-as para outros objectivos. Os con 
tadores em circuito fechado usam uma 
grande quantidade de espaço na área das 
variáveis. 

- Use letras apenas para nomes de variá- 
veis. 


e Qual é a fórmula para o tamanho de um 
ARRAY? 


A fórmila é; 4+2º nº de dimensões + 5º 
nº total de elementos. 

Um ARRAY B (2, 5, 6) tem 3 dimensões e 

2º 5º 6 « 60 irc que 4+2%3 5" 

60 = 310 bytes. 


As fórmulas equivalentes para as outras 
variáveis são: 

NÉMERO: 5º um byte por cada caracter do 
número 

VARIÁVEL DE CONTROLE DO CICLO; 18 bytes 
STRING: 3 + um byte por cada item do 
strínge 

ARRAYS DE CARACTERES; 4+2” nº de dimen- 
sões + número de elementos. 


e Um programa realisado com ZX81 oom ou 
sem 16K RAM e ser usado com qualquer 
tipo de ria RAM? 


Sim, desde que se tenha capacidade sufi- 
ciente de memória para armazenar o progra 
ma. Mas não há quaisquer problemas em pas 


“nar um programa com 16K se só se possuir . 


por aros 4K RAM, 


« Os programas para memórias RAM superio- 
res a 16k são especiais? 


Não Pode ir até 46K de menória, começan- 
do no ponto 16384 sem precisar de “soft= 
ware”, embora ísso apresente dois pro- 

blemas. O primeiro é que o ZX81 precisa, 
pelo ménos, de 16k de memória e se se ti. 
ver mais é necessário re-estabelecer o 

ponto RAMIOP quando ligar a alimentação, 





Para isso, entre com: 

POKE 16389,4” » +64 

-256* INT((4º M+64)/256) 

seguido de NEW 

em que M é a quantidade de memória disponf . 
vel. P. ex. se acrescentar 32K de menória, 
faça POKE 16389,192 

NEW | 
O outro problema é que o ficheiro exibido 
tem que ficar retido na memória 16k. Pore 
tanto, se não usarºsoftware” especial, fi 
ca reduzido a programas BASIC mais peque « 
nos que 15K. O resto da memória pode ser 
aproveitado para ARRAYS. Na linha seguin- 
te damos uma idéia do tamanho do seu pro 
grama: 
PRINT PEEK 16397/4 - 16; “k”, má 


e O qua acontece se se adicionar RAM entre 
8K e 16K? 


O Sinclair ROM usa pontos de O a 8191; 8192 
a 16383 não são geralmente usados. A memória 
RM de lK e 16K e outras que sejam adícios 
nadas, usam normalmente 16384 ou mais. 
Actualmente, algumas das memórias pgoduzi- 
das em Inglaterra estabelecem memória RAM 
entre 8192 e 16383. 

A vantagem desta simplicidade é que a área 
não $ acessível ao SINCLAIR BASIC, a meros 
que se usem os comandos PEEK e POKE. Porse 
tanto, pode. ser usada para armazenar dados 
sem correr o risco de serem “sobre-escri= 
tos”, Aliás, eles não desaparecerkão desde 
que o programa seja passado de uma casseg* 
e a área pode ser usada para passar dak. . 
entre programas. 


.o O que significa especificamente “pagi- 
nar”? 

O microprocessador de apoio do Z2X81 pode 
basear-se apenas em posições de 64k. Pagi= 
nar é um modo simples de separar RAM, ge= 
ralmente - mas não necessariamente = en 
blocos ou “páginas” de 64K, para que os 
processadores possam passar de uma “pági- 
na” a outras 





Jco 





INICIAÇÃO À LINGUAGEM MÁQUINA 





Parece ter-se criado um mito à volta 
da linguagem máquina do ZX8le É comm 
pensar=se - e não compreendemos a ra- 


zão - que a programação nessa lingua- 
gem é difícil. | 
Vamos tentar desfazer essa idéia? 





Para começar, só precisa de um pequeno 
programa (BASIC), extraído do manual 
“Wastering Machine Code on Your ZX81º. 
Eis ums 
IO INPUT X 
20 LET Ag =" *º 
30 IF Ag =” * THEN INPUT Af 
40 IF Ag = ºS” THEN SIOP 
SO POKE X, 16ºCODE Ag + 

CODE Ag(2) - 476 
60 LET X =X +11 
70 LET Ag = Ag(3 TO) 
80 GOTO 30 
É claro que não iremos aqui ensinar to 
da a linguagem máquina de um momento 
para o outro - daria “pano para mangass 
Para já, vamos apenas fornecer-lhe uma 
ou duas rotinas que podem ser usadas 
com os seus programas BASIC. Experimen 
te esta; 
Dê entrada (Load) do programa acima re 
ferido e, a seguir, introduza esta li= 
nha 
1 REM 123456789023456789 
Agora faça correr (Run) o programa e 
introduza; 


16514 pg do có- 
á digo Máquina 
* 259C 49” LD HL, 
(D, FILE) 
4618” LD B, 


vinte e quatro 
as” CICLO: FREE HE 


dr) ai LD A,(HL) 
“cESQ” XOR 80h 
“FEF6” CPF6h 
"2803” HR Z,32ºDA 
“2799 LD (:,),A 
“18F5º JR CICLO 
“10F3” SAÍDA: DJNZ CICLO 
“Co” RET 


Não precisa oompreender o que está escri- 
to na coluna da direita. Basta introduzir 
o que é apresentado na esquerda. Depois, 
páre o programa ("3"). A 
A seçuir acrescente estas linhas: 
100 IF INKEYS<> * “THEN GOTO 100. 
205 IF INKEYE = * “TEN GOTO 105 
110 RAND USR 16514 | ? 
120 GOTO 100 pe E 
Faça RUN 90 e repare no que acontecé qu= 
ando accionar qualquer tecla várias vezes 
seguidas. As linhas 10 a 60 podem, real- 
mente ser eliminadas, sendo suficiente 
manter a linha 1. A partir deste morento, 
em qualquer altura que a máquina depare 
com a instrução RAND USR 16514, a “magia” 
da linguagem máquina entra em acção. 
Experimente agora o seguinte: Elimine toe 
das as linhas, excepto a primeira. Depois 
acrescente: 
IO FOR I = 1 TO 100 
20 PRINT “três espaços seguidos por três 
espaços inversos”; 


a 


30 NEXT I 
40 FOR I = 1 TOS 
SO NEXT 1 
60 RAND USR 16514 
70 GCTO 40 


Passe este programa e armazene-o. 

Agora, se quiser avançar um bocadinho mais 
aqui está uma rotina que fará mover um 
ponto dentro do &cran, saltando dentro 
dos seus limites. 

Pode preparar um tipo de jogo de evasão 

recorrendo a esta rotina. 

Introduza o programa de carga em linguas 
gem máquina que apresentámos no início d 
artigo e adícione esta linha: 

1 123456789012345678901234567890123456 
789012345678901234567890123456789012 
345678901234567890123 

Agora faça correr o programa e introduza 
(contando */” como “newline”): 
16516/0101/2A8240/ 3600/ 3A8440/3D/ 2002/23/ 
2B/7E/ FES0/200B/ 248 240/4A8440 /ED44/ 328440 
/228240/ 3A8540/ 3D/ 2006/11DFFF/19/1804/ 
112100/19/7E/FE80/ 200B/ 248 240/3A8540/ED44/ 
328540/010000/7E/ FEOB/ 2009/03/3A8540/ED44;, 
328540/228240/3634/C9/S 

FE8SO/ 20C"3/ 248 240 /3A8440 

Agora pode eliminar todas as linhas depois 
da l10Os 

Para compreender como tudo isto é executa 


mo 


do, acrescentes 

10 PRINT “trinta é dois espaços inver- 
- 808º | ii 

20 PRINT “espaço inverso +J0-espaços* 

espaço inverso” | 

30 como 20 

40 PRINT "espaço inverso+0 A gráfi- 
costespaço inverso” 

50 como 40 

60 FOR I = À TO 10 

70 PRINT “espaço inverso+30 espaços+ 
* espaço inverso 

75 NEXT I 

76 PRINT “32 espaços inversos” 

80 LET X = PEEK 16396 + 256º 

PEEK 16397 + 200 

90 POKE 16514,X — 256"INT (X/256) 

100 POKE 16515,INT (X/256) 

110 LET À = USR 16518 

120 GOTO 110 


As linhas 10 a 76 apenas preenchem o 
Ecran; pode substituf-las por qualquer 
outra rotina que prefira 


O CLUBE VAI 
CUPSOS POR 
EM 


SE ESTIVER 


LINGUAGEM. 


od 


As linhas 80 a 100 são rigorosamente neces- 
sérias ao funcionamento da linguagem míqui- 
na (7+200” pode ser mais ou menos *+ qual 

quer coisa” - determina a posição inícial do 
ponto) e a parte fulcral está em 110 e 120 

A instrução LET A = USR 16518 só faz mover 
o ponto ao longo de um quadrados Se ordenar 


“PRINT A, verifica que A é sempre zero, a me- 


nos que o ponto atinja o limite do écran, ca 
so em que será igual a le 


Como verifica, o ciclo 110 a 120 é o “jogo”. 
Cabe-lhe a si a tarefa de o tornar mais ali 

ciante; desde que não faça alterações à lin- 
gquagem máquina e utilize BASTC, atendendo a 

que LET A = USR 15518 significa “mover o pon 
to num quadrado” - não terá problemas! 





No próximo número continuaremos 
com o estudo da linguagem máqui- 


na, aplicada ao microprocessador 


280. 


ORGANIZAR 
CORRESPONDENCIA 


MÁQUINA. 


INTERESSADO, 


CONTACTE-NOS 


—— e ma topa 
emma a 
- 


=. al 2 e 


e a. 
-— o ————e o 
e o Ce mm im e ça e meme 


—— ui pe pç mm mi e 
s i— O — e — . 


e e mem e 


TSE O E SA SS ET e O E Sa SUS Es 
"SE O DO LEITOR 
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Serafim Miguel Guimarães, de 16 anos, 








escreveu-nos sugerindó uma versão di- CRIÁVOS ESTA SECÇÃO PARA SI. 
ferente para o programa LASER que a - 

presentámos no número anterior. COLARES 

“Achei imensa piada ao jogo e resolvi | ESCREVA-NOS! 


fazer-lhe umas princi ter Papua des 


tas, O program 


VONAU AU Nm 








REM" CF SÊ - 
PRINT AT 9, 2; DO ua o o a q a ap que — ear um qua o mo am mg se mes co anos 8 
PRINT AT 10,13;"LASER" | | 
PRINT AT 11,0; "=== ==... NR E SP ane 
PRINT AT 19,26; "LOG" 
PRUSE 200 
CLS: 
LET G=0 
LET P=Q 
LET A=Q0 
LET J=20 
LET K=1G 
LET Xx=INT (CRNDH1IS)+2 


EO LET AsA+i 


IF A=2i THEN GOTO 2Z60 


SO LET Y=38 | 
90 PRINT AT K,B;CHES 120;,CHRS 1258;AT X,Y; "KO 


223 
30 
240 
241 
esz 
243 
244 
245 
cel 
270 
er 

276 
So 


“T «am 


IF J<B THEN GOTO 156 
IF INKEY$="7" THEN LET K=K-1 

IF INKEY$="6" THEN LET K=K+1 

IF INKEY$="8" THEN PRINT AT K,2; "aaa 
IF INKEYS="S" THEN LET Jay-1 

LET Y=y-1.5 

IF J<=5 THEN PRINT “FUEL";J 

IF J=B THEN GOTO Z40 

IF Yz3 THEN LET G=G+1 

IF G=8 THEN GOTO 240 

IF Y=3 THEN GOTO SO 

IF INKEYS="2" AND K=X AND Y<21 THEN GOTO 226 


CLS 

GOTO 36 *O jogo asstm acaba quando: 

PRINT AT X,Y;CHRS 189 1 - Acabam os 20 disparos possíveis 
LET P=P+i 2 - Há 8 “X” que se aproximem dema- 
GOTO SO siado da nossa base 

PRINT “FIM DO JOGO" Em caso de se fazer 5 pontos, há mm 
PRINT "PONTOS= ";P bónus Neste caso, há mais 2C diga 
PRIHT “FUEL= ";J ros para dar e só se pode “deixar 
IF G>=8 THEN STOP fugir” 3 “Xº, Haverá, depois, serpre 
- E fo 2=5 THEN GOTO 260 bénus até que acabem os disparor 
PRINT “BONUS" (FUEL) , ou o valor G atinja 8.º 
PRUSE 1380 

CLS 

LET G=5 

GOTO 10 


CAVE “igreor”r 


PROGRAMA PARA CALCULAR VALORES DE VENDAS À PRESTAÇÕES E PREÇOS DE VENDA A PÚBLICO 









Este programa que nos foi fornecido por um membro do 
Clube - o Sre Fernando Marques = é uma prova da vali 
dade e interesse desta associação e da forma como po 
de evoluir, no sentido de auxiliar os utilizadores 
do ZX81 a tirarem melhor rendimento do uso da sua má 
quina. 











PEM =VENDAS A PRESTACOES= =PRECO V/PUBLICO= 

1 REM ELABORADO POR FERMANDO MARQUES 4 £GOHDOMAROQUTUBRU- 138.5 
2 REM | 
3 CLS 

E REM “F.M.” 


202 


315 
E 
44 
342 
343 
347 
358 
I75 


331 


REM ESTE PROGRAMA CALCULA I.T. C215 POR CENTO 
PRINT “ESTE PROGRAMA CALCULA: * 

PRINT "===>—==——— ,-==——————— a 

PRINT AT 9,2;"1 -— VENDAS A PRESTACOES* 

PRINT AT 11,2;"2 - PRECO DE VENDA nO PUBLICOS 
PRINT AT 17,2; "ESCOLHA O HUMERO PRETENDIDO 
INPUT XS$ | | 

IF X8="1ºTHEN GOTO 99 

IF X$="2"THEN GOTO 4430 


CLS 


LET H$=“"VENDAS À PRESTACOES” 
LET N$="======= == e cm nen “ 
LET US="VALOR DA VENDA” 

LET PS=z"PRAZO-MESES* 

LET QS="ENTRADA INICIALCO-B >" 
LET ES="ENTRADA INICIAL<F ISA? 
LET S$="CERTO? <S Nº 

PRINT TAB 7,MS 

PRINT AT 1,7;H$ 

PRINT AT 6,0;“ INDIGUE:* 
PRINT AT 10,0;0% 

PRINT AT 12,0;PS 

PRINT AT 14,0,G% 

LET P$="a" 

LET D$=* | » 
LET M=iô 

PRINT AT 19,2;DS 

IHPUT A | 

PRINT AT 19,2; "=";A;"80=", TRE 13;58$ 
INPUT &$ 

IF X98<>"S“THEN GOTO 220 

PRINT AT M,28,BS 

LET MaM+Z 

PRINT AT 19,2;D8S 

INPUT T 

PRINT AT 19,2; "="; T;"-il="; TAB q, 
INPUT xS 

IF X$<>"S"THEN GOTO 3IY 

PRINT AT M4,20,FS 

PRINT AT 19,2,D% 

INPUT H 


REM ESSO e A A O OO O ad 


jo 


+ e q e pe me 
o a agp 


— aa to o e eme me mm o 


- 
E a a 
a a a e 
o o 
é “ 


TT a «to e 
—— e e q — 


rá 
“ss ” 


382 


303 


420 
421 
422 
423 
a24 
43z 


REM 

PRINT AT 19,2; "=";H;"P/C="; TAB 2,58 
INPUT XS 

IF X8<>"S"THEN GOTO 375 

1F H>=25THEN GOTO 471 

LET M=M+2 

PRINT AT M,28,ES 

PRINT AT 19,2;D8 

INPUT 3 

IF J<=(9. 25%A>THEN GOTO 424 
PRINT AT 19,2;"=";];"S0="; THB 13;S% 
INPUT »S 

IF X8<>"S" THEN GOTO 423 

LET M=M+2 | 

PRINT AT M,28; PS 

CLS 

LET M=2 

PRINT TRE 7;M8 

PRINT AT 1,7;N% 

PRINT AT 2,8,08$ 

PRINT AT 4,6;P% 

PRINT AT €,B;0SCITO 15) 

PRINT AT 8,0; "LIQUIDO" 

PRINT AT 10,0; "ENCARGOS" 

PRINT AT 12,0; "LIGQUIDO+ENCARGOS" 
PRINT AT 14,0; “PRESTACARO MENSAL " 
PRINT AT 16,6; "SELO-CONTRATO" 


Ss PRINT AT 18,9; "LETRA+SELOS 


LET M=2 

LET C=h 

LET C$8="SB" 

GOSUE 3000 

LET C=T 

LET Ca *-=n” 

GOSUE 2006 

LET B=vAL “INT cHHA-10092" 
IF H=BTHEN LET E=J 

LET C=bB 

LET C$="80" 

GOSUE sSOGU 

LET I=A-B 

LET Cal 

COSUB 2000 

LET K=vAL "INT (O, 2253$1XT/120" 
LET L=I1+K 

LET N=VAL "CINT <<CCLT>-105+5))%10" 
LET O=vAL CN£T-1" 

LET C=0 

GUSUR 3000 

LET P=VAL "O+1" 

LET C=P 

GOSUB Z000 

LET C=N 

REM 


[= 


UI CO) FO dO 
Ui db Did dy PU 


a EEE 


O 4 7 3 


DOBRAS 


COSUB 3009 

LET WN=VAL "12B+CIHT (CIFRA DGO +D, 5950 
LET C=U 

nOSUB 3000 

LET Y=vAL "INT <C3XN-/1000)2+0.5 7" 

LET CaYy 

GOSUB Z000 

2RIMT AT 21,0;"=SE JA TOMOU NOTA. FEIMA NAL =" 
INPUT «Ss 

CLS 

Fe 

LET vV&=STKS C 

LET U=LEN V$ 


1 PRINT AT M,23-U;C;C% 


PRINT AT 13,2;D5 
LET M=M+= 


RE TUFH 

CLS 

PRINT TAB 5; "CALCULO DO FRECO 
PRINT AT 1,5;!==—>=>=——————=.—————— " 


PRIHT AT sd adia » 

PRINT AT ?P,0,"1 — PZCuSTO C4 IT THCLUIDO — &5º 

PRINT AT a, 3;"2 — P/CuUSTO C4 N IHCLUIDO —- 26" 

PRINT AT 11,.0;"3 - P-CUSTO S- TT IHCLUIDO — 25º 
FRIMNT AT 13,0; "4 - P/CUSTO S4 IT INCLUIDO - 30. 
PRINT AT 17,90; ESCOLHA A GFCRO,” 


4 PRINT AT 13,06: "QUANDO RR Ca CALCULOS: 


LET PE E » 
INPUT Hs 

IF 4$="1"THEN GOTO 4570 
JF x$="2"THEN GOTO 4625 
Tr po qb GOTO 4635 
IJF ="4"THEM GATO 4740 


PRINT E INCLUIDO 2" 

FRINT M$ 

INPUT AS 

IF AS="0"THEN GOTO 5 

LET C=VAL AS 

LET E=VAL CCINT <<d. 2SEC +. E) 14H10" 
LET US=STES B 

LET LI=LEN US 

LET VY=LEN AS 

PRINT TAB 10-V;AS; TAB 25-U;B;". 6º 
GOTO 4520 

CLS 

PRINT “IT INCLUIDO -30º 

PRINT M$ 

INPUT AS 

IF A$="9"THEN GOTO 5 


3 LET C=vVAL AS 


LET E=VAL “CINT CC1.30402+0.6)-15 6100 
LET US=STRS É 
LET U=LEN US 


Ss LET V=LEN AS 


PRINT TAB 10-V;AS; TAB 25-U,RB;".0" 
GOTO 4650 

Cs 

RETA 


jm 


-PRIMA cH> E DEFNIS (NÃ 


(Continua na page 12) 


1&6 
E(AE) 
10 


jo 


SE E E E SS E E TS DS SRD «2 e a a CT ei me e 


PROGPALA PAPA DETERMINAR A RAÍZ 


CEFET E e RR 1 SE TC a o o ie E o DT e 


SE E EE o me O DO ce > a a ei eg tm 


DE UMA FUNÇÃO PELLC 





MÉTODO NEWTON 


ES Da E GS E Geo a 1 TE e o e e eee 


EXEPLO CALCULADO 3 f(x) = x) 


Supomos que x, = | 
-4 e x =2 
h = 10 


-“ 


2 
- Lx =x + 2 


REM "PROGRAMA PARA DETERMINAR A PAIZ DE UMA FUMNCÃO PELO METODO DE MET 


PRINT“INTRODUZA O VALOR INICIAL xa" 
INPUT É 

PPRINT"RO=";C 

PRINT"INTRODUZA O INCREMENTO Hº 
INPUT A 
PRIHTOHa";A 
LET xX=C 
GOSUEB SAB 
LET v=B 

LET xX=A+4C 2 
LOSUB SBB nt*l 
LET Dal 

LET CaD-AXY2c B-Y> 

IF ABSCD-C)>>=1E-8 THEN GOTO 70 
PRINT'A RAIZ DA EQUACRO E xX=";C 
STOP 

LET B=((X-25)XX-1 )4X+2 

RETURN 


= Y «o 


Neste programa, faz-se a deter- 
mínação da raíz de uma função 
pelo metodo de Newton 

E (x,) 


E" (xo) 





n 


Quando o valor absoluto da dife- 
rença entre X, 0 X.,) 5€ torna 


inferior a jo” » X. é conside- 
rada como raiz e o calculo fica 
terminados. 


A definição da função é sempre feita na linha SOC. 
Para outra função, terá de ser introduzida na linha 00, antes de 


correr o programa. 


Proçrara preparado pela Engh Teresa ) 


NeFferreira 


a e e ee eee eme 


TABELA DE CARACTLRES 


Sendo o ZX81 um computador digital, não 
podemos admirar-nos pslo facto de ele ra 
alizar tudo com números. Todos os caras 
teres são formados por uma grelha de pon 
tos oito=por=oitoe Um espaço do caracter 
tem todos os pontos eliminados (branco), 
e um espaço inverso tem-nos exibidos 
(preto). 

Começando na posição 7680 em ROM, cada ca 
racter possuí 8 bytes consecutivos que de 
terminam a sua natureza. Cada byte repre- 
senta uma série única de caracteres; se 


convertermos esse byte de decimal O a 255, 


em binário, 0000 OCO0O a 1111 1111, é re- 
velado o conjunto de pontos que são exclu 
(dos ou que permanecem. 

Estudámos o programa “Character Table 
Printer”, no sentido de o tornar mais sim 
ples. Ele mostra a localização em ROM, O 
seu conteído decimal, o conteúdo conver= 
tido em binário e, finalmente, o binário 
convertido em espaços e espaços inversose 





19 FOR A=7E20 
15 FOR C=9 TO 7 
2a IL.ET C=PEEK CAtC) 

28 PRINT A+C;" “sb 

46 FOR B=31 TO 24 STEP -1 

sy PRINT AT C,B-12:D-2KINT €CDoo) 


TO 82142 STEP & 


O 

a LET D=INTCD-2) 
an NEXT E 

98 MHExT € 

1090 PAUSE 100 

110 POKE 164237.235 
120 CLS 
124 HEZT A 


1 PEM TREELA DE CARACTERES Sprinter ER 4 


PRINT AT C,B:CHRSCCD-Z2HINTCD- 2994126) 


Se uiséssemos alterar o caracter esta 
belecido, teríamos que considerar a de- 
cisão com 256(32x8) pontos sobre 
192(24x8) pontos inferiores. Não se po 
de ordenar POKE em ROM, mas há outras 
maneiras A Sinclair estabelece um modo 
que permite imprimir informações gráfi 
case 

A função L PRINT é executada, lendo um 
caracter da unidade de impressão - das 
posições 16444 a 16476, encontrando O 
conjunto de pontos do quadro em ROM, é 
enviando-os depois à impressora. 

Jogar com o Sinclair implica movimentar 
RAMIOP para deixar um espaço de 256 
bytes, depois copiar a rotina L PRINT 
de POM para RAM, que não É a zona supe- 
rior a PAMICP. A seguir, esta rotina é 
alterada cuidadosamente, de modo cus os 
seus caracteres em vez de começarem na 
posição 7680, começam a partir de 32255 
a al superior a JAMTO e 
Nesses 256 bytes há capacidade para 3% 
caracteres, que tem a dimensão 
da unidade impressora. Podemos 
incluir os pontos que desejar=- 
mos nos bytes acima de RAMIOP, 
preencher a unidade de impres- 
são com caracteres de 0 a 31, 
chamar a nossa rotina especial 
L PRINT e, imediatamente, eles 
estarão na impressora. É neces 
sário um “hardware” especial, 
se quiser exibir no seu televi 
sor os efeitos destas resolu - 


ções. 



















a o a a O a rm 





CÁLCULO NUMÉRICO 


UTILIZANDO 


LOCARITMOS 





As funções trigonométricas SIN e COS 
são geralmente necessárias em casos que 
envolvam círculos, o que as torna muito 
importantes, mesmo que você dê pouca a- 
tenção à trigonometria. 


Vamos aqui ocupar-nos das funções EXP 
e LN. Contrariamente às funções trigo- 
nométricas, estas são necessárias em 
combinações de números e cálculos com 
fórmulas matemáticas. 

A instrução EXP X corresponde à fórmula 
matemática exp(x) ou, mais vulgarmente, 
eX. LN Y é o logaritmo natural, In(y) , 
ou l0Qaye 

Potencias e logaritmos são muito usados 
em cálculos científicos. Aparecem em es 
tatísticas, descargas radioactivas, fór 
mulas químicas, e em tantos outros cam- 
pos que, provavelmente, virá um dia a 
trabalhar com elas. 

Far facilitar, usaremos a anotação 

A que significa “A com expoente Bº, 
Se B for um número inteiro positivo, en 
tão A“PI=A; A“SZ=A“A; A“CS=AVA“A , etc. 
Se B não for numero inteiro, o expoente 
determina-se pela ação A (BC) = 

a (AP SB) P(A). Ego X a 


= 10""(0,5+40,5) = 10""1 = tal que 
X rd art iria de (03. 


A função EXP calcula as potencias de um 
certo número, a que os matemáticos ckha- 
mam “e”, aproximadamente igual a 2,7183. 
Se ordenar PRINT EXP(1), este número se 
rá apresentado ainda mais pormenorizado. 


Geralmente, EXP B é a potencia Bº de “e” 


ou seja, EXP(B) = e*"B, 
Esta numeração começou a tornar-se im- 
portante a partir de meados de 1594,com 


os trabalhos logarftmicos de John Napier 


Os símbolos foram introduzidos pur Leo- 
nard Euler em 1728, 

Uma maneira de compreender como realmen 
te eles funcionam é fazer cálculos com 
juros compostos. 

Por exemplo, se 1900 for investido à ta 
xa de juroanual de 100%, composto anual 
mente, duplica em cada ano. Em N anos , 
terá aumentado até 8 2 Ne 

Suponha agora que o juro passa a ser a- 
plicado não ao ano, mas em cada décima 
parte do ano - entê- a taxa deverá ser 
de 10%. Ao cabo de U,l anos, o investi- 
mento subiu para 1,1; ao fim de C,2, 
somam-se mais 10%, obtendo 1,218; de - 
pois 1,331g, 1,464lg e assim sucessiva- 
mente. 

Ao fim de 1 ano, equivale a 8(1,1)“210 
cerca de 2,594, e ao fim de N anos ser 


s (1,1)""(10"N)o 


Juros de 1% ao ano, compostos em cada C,l 
co anc, originam s(1,0))““10Q,0u! 2,7048 ac 
fim de 1 ano e 3(1,01) (100 X) ao firm de 
N ancse 

Continuando com este processo, coxpordo ju 


- ros cada vez mais pequenos a intervalos ca 


da vez maicres, ao fim de 1 ano o total a- 

proxima-se cada vez mais de 2,718. E ao fim 
de N anos será cerca dez e""NaEXP N 

Quanto mais curtos forem os intervalos,mai . 
or será a aproximação, embora os limites 
aritméticos do ZX21 tornem mais difícil ve 
rificar ísso directamonts. Se experimentar 
(1,000001)**1000000 obterá 2,7176583 que é 
uma aproxinação cerrada, devida a erros nos 
cálculos de arredondamento. 

Há ura fórmula matemática para “e” que ex- 

plica que (1+1/nN) “ºN se aproxima muito de 
“e” quando N é grande. 

Experimente o seguinte: 

1 FORI = 1 tos 

20 LET N = 10""1 

30 LET E = (1+1/N)"ºN 

40 PRINT N,E 

SO NEXT I. 

A função LN é o inverso de EXP, isto é, se 
EXP X=Y então Y=|k X. Este proçrama demrons 
traré isso: 

IO FOR X = 1 to 20 

20 PXINT X, EXP LN X 

30 NEXT Xo 

Segundo os matemáticos, as propriedades 
mais importantes destas duas funções são 
provavelmente o facto de elas satisfazerem 
as equações: à 

EXP(A+B) = (EXP A) EXP 8) 

LN(A 8) = (LN A) + (LN B). 

Para quem já estiver familiarizado com lo- 
garitmes vulgares, LN é o logaritmo natural. 
O loçarítmo usual é um miltíplo deste, cha 
mado log X = (LN X)/(LN 10). 
Historicamente, o logaritmo foi usado para 
inverter os totais de multiplicações em a- 
dições. Com o advento dos computadores, es . 
ta técnica passou a ser irrelevante, mas 
EXP e LN continuam a ter a sue importancia 
por outras razões. Por exemplo, EXP simbo- 
liza-se por uma curva - chamada catenária. 
10 FOR ]) = O TO 60 

20 PLCT J, (EXP(.1"(J=30)) +EXP(.1 (30-7)))* 

1,5 

30 NEXY' J 

Para uma ilustração final, pense naquilo a 
que os técnicos de demografia chamam “cres 
cimento potencial”. A idéia é que a popula 
ção do mundo aumenta em cada ano, tal coxo 
um juro composto, de modo que ac fim de X 
anos, uma população original P pas:a a ser 


— a mi a ans east 


2 


P'((1%R)"“N) em que R é a taxa de 
crescimento. 


damente C,4794403, Portanto a KB geração ae 


coelhos tem F(k) membros, em que 
em 1220, Leonardo quiet pisa a (LN F(K))/K = Po 
sua famosa sequencia de n ros: 
0112358 13 21 34 55 89 144... Então; 
Cada número é a soma dos dois anterio LN F(E) « EºR 
res. Este foi o modelo de crescimento 
de uma população de coelhos. Os n Portanto: 
F(K) - EXP (K*R) = (EXP R)**X 


ros crescem sempre potencialmente. 
O programa que vamos agora apresentar | 

Teoricamente, o valor para EXP (R) é o nú- 
mero (1+ ? 5)/2 


aplica o kº número de Fibronacci,F(K) 
e também a expressão (LN F(K))/K por 
rasões que, pps iosiarenns: Para uma rápida confirmação, ordenamos 


IO LET B= 1 PRINT LN ((1+SQR 5)/2 
29 LET N= O e obtemos 0,48121183, que está bastante 
30 LET Kk= O próximos. 
40 LET Ce B | | 
— 
50 LET Be B+N SE QUER OPTER O LOGARINHO DE PASE IG : 
BO LET N= C Jovo LETX = INX / LN IO 
70 LET K= K+l Boco INPUT À 


80 PRINT B,(LN B)/K 
9%» IF K 220 THEN SCROLL 
LOC GOTO 40 


A segunda coluna de números é estabe 
lecida para um valor de R, aproxima- 


9100 PRINT X 
9200 Gº TO 8000 


E o pe ae ee Da 





4637 
4630 
4695 
4780 
4703 
4705 
4715 
4720 
472a 
4720 
4725 


4737 


ger 
4740 
4745 
4748 
4755 
4768 
47E5 
4770 
dra 
adideis 
4755 
4720 
4306 
4202 
2040 


REM 


PRINT “S4 IT INCLUIDO -25" 


PRINT M$ 
INPUT As = 
IF Af="B"THEN GOTO 5 | 
LET C=VvAL As 

LET B=VAL “CINT <CCI.42PSHC 940. E 10)K10” 

LET US=STRS B 

LET U=LEN US 

LET v=LEM AS 

PRIMNT TAB LO-V;AS, THE 25-3;B;.",o" 

GUTO 4760 

CLS 

PRINT "S2 IT INCLUIDO -30" 

PRINT M$ 

INPUT AS 

IF A$="B"THEN GUTO S 

LET C=vAL Até 

LET P=VAL "CINT CCI. 42SEC+D, 5) 10 XK10" 

LET US=STR$ E 

LET .=LEN U% 

LET Y=LEH AS 

PRINT TAB 10-V;AS; TAL Z5-U;B, "o" 

GOTO 4755 

GOSUB egoa 

RETURN 


<AESCCtRAE A COCÉICA E À ESEÉtEA 
Edi tatrecd EE S ECC E A EGEÉCE 


ES tsCCtrd EA Gac eCiE dA CACECE 


ESCALA EICECEA ESA EIEES 
CEU CICELEE A CIECLEA EA EGEE 
PRE CaCECA E A ICE E A EGÉ 
LE CEEE A ICE A EO 
Ctrrd EA CIELLÃ E LESECERPA EIA E 
AtrrEd Ed tEtredi Ed tdcecEci E 


cattotd ECC UEC S. 


tattrr ES CELA A CICCCCG E 
A CAtEtE E A COCELEA E A EJECCEA 
EititttE Scot EE A CJECE 


dE dtattEUtIcLtE E SEJEECE 


Es tt EA CaLELLA E À EREEL 
ca tacerêA E A ICC EA EO EE 
LCA ECC EA CICEBÃ E A E5E 
EM ES tactrLA GA CICEtEd E A EA 
ELE EE CSCECRU E A EJCECC EG E 








Este pequeno programa chama-se PADRÃO 
UNIVERSAL e é capaz de produzir mais. 
de dois milhões de desenhos distintos 


" 


no seu 7 Vou na sua impressora. 






Cada matriz tem um nimero € O corprimen 
to da string é impresso na ultima linha, 
de modo que possa reproduzir o mesmo 





desenho em qualquer altura. Para gerar 


uma nova matriz, responda “5º. Tome no- 








atterdi EAR EA CECIL EA 
ta dos numeros que aparecem na ultima 


linha. Se quiser a mesma matriz, res- 


É À ponda “Nº” e dê entrada dos numeros ano- 
Ester EA tItCCCÃã E a iii A 

1a DIM ACRT3? 
13 stLaid 
2o PRIHT 


tados. 


“MATEIZ ALEATORIA 7 CS tio” 


29 INPUT AS | 

42 CLS | 

A IF HOT AES="SºTHEH GOTO 228 
EQ LET L=IMT CcRHD£E3S 241 


"PO LET HX=THT CRIHIDA6CSS2S 241 


30 FAHD = 
as FAST 
af FOR íJ=1TO L 
190 LET A<CJ2=IHT cCENDX 10D+1 
4110 HEAT J | 
120 FOR J=1TO 664-L. 
1jag FOR K=1 TO LL 
4148 PRIHT CHEESE ACtkt 2; 
13SAa HEXT HH 
169 HEXRT íJ 
17 PRIHT +23 a à E OE ia 90 
138A STOP 
290 PRINT º'HUMERO DR MATRIZ ** 
14 THEFUIT ix 
eg CLS 
220 FPRIHT “JCaOrnPRIMENMTO DA STEREIIHAO Tº 
242 IMNMFUT L 
st Clos 
233 GOTO <a 
Saga) REM 
q1AM REM 


ESTE PROCEAPA, QUE NOS FUI CSDIDO PELO Dr. LUIS LELNÃO 

E QUE É PPOVENIENTE DO Sinclair Amateur Rai> User Croup 
permite escrever uma mensagem no seu TVe se mantiver 
o seu gravador liçgado com o cabo * MICRO”, e na posição 
"RIUCKD”, terá a sua mensagem gravada na fita e em mors+ 
Poderá depois reproduzir A mensagem e tantar interpretar 
o código, como treino. 


REM FEEKkK TO TAH 


“MORSE “ SS 


LET EH=3 
LET sS=2]24 


IF IHMKETvES>'º""THEH Garra aa 
IF IHNKEYvE="']“THEH GOTO GE 
LET AS=IHHKEYVTE 


PRCCRU-A 
* MONSE” 
1 
e REP 
io REP 
= 8a 
<> 
sQOo SUOom 
Sea 
sa 
a 
Co PRIH 
Bs íIFÃA 
GO FAST 
iga LET 
iza LET 
so LET 
qgo LET 
ISSO LET 
sSsggd FPAHOD 
dos HNEXRT 
6909 FOR 
&5SO HEX T 
daa LET 
"50 IF E 
sas ãaaToOo 
35540 STOF 
14agag FOR 
LGgLO IHNPLUI 
1gSgO POK E 
iigsgogo NEXNST 
igaaga STAFF 


VT AS; | 
Bs". ºTHEM GOTO SB 


C=CODE ASB-2Yr 
E=PEEH 1i&Nez+aclc 
Ee=mItHIT <cE-Z> 
EIa=E-cCETZXE > 
pVsB+<( REAZ2H*HcCEE=1 725 
1 TO 
USR 16353143 
4 
21T0o <ciza-gaBOFHCEL]LO9-GS 
2 | 
E=E= 
<siTHEHM GATO Ja 
<= 563 


I=16523TQO 165539 
To =x 

I + 4 

I 


INSTRUÇÕES : Depois de introduzir o programa, deve fazer GC TO 1000 
e introduzir, um a um, Os segiiintes códigos ! 


63) 62 60 56 48 32 33 395 39 47 617 21922011 
36 4€ 30 1318 7 615222710851224 1425 29 19 42 


Pode agora fazer RUN « escrever a sua mensagem quando o ecran 
aparecer branço, 

Pensamos poder apresentar no próximo mês, um pequeno circuito 
que lhe permita escutar simultâneamente com o escrever da men- 
sagem, O código ” MORSL”, 


t 
1ã1 
rá ; 
“343 
am 
“SA 
1541 
SE 
Lace 
“ut 
LAZY 
Íris 
qisgma 
1450) 
LHE 


AILGIZA 


1113143 
1118 
1 404% 
1120 
1140 
1138 
11640 
1174 
RE RSE 
1 1961 
1280 
1216 
1226 
a 2a 
[ot$01 
145 
ER 


125% 


“Migen 


| 


doando cinta e > AS do CD ii 


Mês 
tas dt 
1330 
iddR 
1420 
i466 
19470 


EE 


REIMS BATALHA NAVAL 


4 PRINT AT CODE cB$c 








BATALHA 





NAVAL 








Trad. LúG Ternolqcia Induztrial Lda, 
2" 10-80 

FPElS “DATALHA” 

PEIMT AT 9,6,0-—-——-—— 2. — =. = eo eo ma » 

PRIHT AT 10,10," PATALHA NAVAL" 

FRIHT 


PRINT AT 19,25;"<lca>"” | . 


PRUSE 200 

ELE, 

PRINT AT 1O,25,"º<los>" 

LET S=0 

LET béb=" “ 


DIM ES 16,2) 

LET fá=0 

LET ti=1 

LET J=1 

LOSUEB 1390 

GOTO 1230 

FAST 

FóÓR uemTir 1ESTEP 
For I=4T0 12 

FOR Z=2TO 11 
PRINT RT L,C*ASS* 
PRINT AT I,CexX;"." 
HEST 2 

PRINT AT IG; TRE &: 
HESXT IT 

PRINT HT 2,2+K; “AREBCDERNGHIJS 
HEXT x 

SL 

RE TUFIN 

PRINT AT €1,0;* 
PRIDE XS6 
PRINT AT 21.80,k5 . 

FOR H=iTO 4 

PRIUT AT ZA. G;tES 

PRINT º-cFÓSICAO DO CRUSACCE No. "in 

JHPUT EgcAÃO 

IF CODE EScCA<LSEDR CODE EFeno4PTHEL GATO IES 

PRINT AT CODE CESCR,Ers-ps+A.CODE (ISCA, LoD-Re+t2; "CP 
HEXST mn 

FOR A=TZTO & - 

PRINT AT 21,0;º-:PÓSICROA DA FRAGSHTA 
JHEUT ESCA) 

IF CODE E$crn<320R CODE ESCRPE4 THEM GOTO 12105 

ce) PEHS, CODE CPSCA,LD- SEE; "PF" 


LE 


J-4 


cutrada dar corre nadas = 


Ne C;fi-as 


NEXT A 

FOR A=9TC 10 

PRINT AT 21,0;"º-=POSICÃO Di SUEMAR THO Ne. 
INFUT BS A>2 

IF COLE ESCADCSSCR CODE 
PRINT AT CODE <PB$LR.242-23+t3. CODE 
HEXT A 

CTA ASC IA, 2 
Por RITO q 
LET AGORA. LM=CHPS “INT 
LET AgCg. 2 =CHES CNT 
NEXT H 

CLS 
FOR 
LET 
LET 


"4-5 
ES os TREM LATO 1.563 
ER A, 1 0 -DG42; "EM 


) 


Ceia Liu De 
«PNDILID2+4C3 


A=S5TU S 
R$C A. 1=CHkS é TUT CRHLSILG D+ SS 
DEC 2 =THRS QT CRILALO MES? 


e DS e a me q q mem 


— e - s- e es am e E 


SMS 
(50 
1519 
1329 
1520 
Bm Tá: 
(ESA 
pica 


15€€ 
+54) 
(ECO 
j51tma 
tem 
1520 
1 ES 
LAIO 
1nãa 
151 
LESSA 
*E 93 
IDA 
17413 
tras 
RE Pê 
ra 
1720 
Re 
Toa 
(rs 
120 
Ls 
jato 
ESPRA 
13209 
1354 
(260 
15378 
13 
1298 
pH 
Luis 
1207 
1210 
1214 
1913 
1329 
1934 
1234 
J 284) 
1964 
197€ 
LISA 
tagA 
2090 
cao 
2029 
en2s 
CANSA 
enas 
“DIO 
SOS 
cn? 
Cano 
PCA 
ima 


HeEXT A 

FOR H=-9TO 10 16 
LET ASA, L>=CHERS CIHT CPHDELO +TS + 

LET ASCA,2 )>)=CHR$S CIHT oPHDEIODH OS 

NEXT A | 

GOSUP (394 


FoR 


PRINT 9T CODE 


Hex 


FPIHT AT O,A."OS SEIS 


A=1TO 4 


| 


CERA, DRE “ERC, 
n 
EGRCOS" 


FO)? A=STO 3 


PRINT AT CODE CBS A,2N-CE+4 COPO CBSCA,LDI-DO4D; PPM 
HENT A 

FOR A=9TO 10 

PPINT AT CNDE CBSCA,Z2)2-28+4,. COD CBECA, LI ER+Z, a 
NET A 


PRINT AT 2L.0;K$S;AT 21,9 "gizpara” 


FRI 
FOR 


NT AT 192,80, "HOSSA ESMIADEA= ColcAT 20.04, "ESEUBDER THIMIGA= C.M 


R=iTi 2 


PRINT AT 153.0;,k%$ 


LET 


G=-180 


IHPUT CS 


LET 
FOR 
IF 


CESASCASTHEH FPRIHT 


H=H+1 
A=LTO tm SS 
Moo Leto sCEERR: CLS 


LE CS ASCASTHEM PRINT AT Liso ERRO E 


tr 

HE. 
PRI 
LÊ: T 
HE 
Fa T 


IF 


Co=ASCADTHEN GATO dzita 


TH 

NT AT CODE <lSC2))-22+4, CODE Cr 1))-30+18; "+" 
K=PHDEERHO 

TE 

o 1965 


atinatdo” 
atiraida 


G=14STHEH PRINT AT 15,0 ,."tai 
G=-1SO9THEH PRINT AT 15,8; "Fui 
Ac=4THEH PRINT "cruzador" 
NE=SAHND A<=STHEN PRINT “fragata” 
A>Z=3AHD AS=iI2THEN PRINT “<utimar ino” 
D=14STHEH LET M=i4+1 | 
G=-1S50THEH PRINT AT CODE (C$C29)-23+4,.COlEÊ CESCIDI-SSHII; Ch" 
G=14STHEN PRINT AT CODE CDSCB,20)-2a+4, CODE CDC E,1L3-II3+2; "rh" 
M=ÍATHEN PRIHT AT 28,280; "GHRHHET” 

M=13THEH PAUSE 250 € 

M=1ODTHEN GOTO A ” 
S=1ATHEN PRINT AT 19,19;"6GRiNHOUO 

S=IB9THEN PAUSE 256 

S=109THEN GOTO Q 

G=-15ATHEN LET ASCAD="" 

G=194STHEM LET B$S<CAD="" 


LET K=ENDEFRHDEYRHD 
GATO 13228B+6G-5 


PRI 


HT AT. 21,0;KS;AT 21,05" zx81 " 


DIM 0$(3,2)> 

LET G=145 

FOP B=iTO 3 

LET CS<B,1L)=CHPS CIHT CcEND$ILO)+AS 
LET SC B,2)=CHRS CINT <cRNDEIDOroSo 
FOR Az=1TO 19 


IF 
IF 
IF 


DS BI=BSCA)JTHEN PRINT AT LAS; "CERTO: “DEC E) 
LS B)2>BSCAJTHEM PRINT AT 1,15; "ERROU: ";DSCP) 
C$: B)=BSC AITHEH COTO 1210 


MET A 


PRINT AT CODE <L$CR.29)-23+4, CODE CDBCRL Doar Me 
HEXT B 
PRINT AT 17,0;" , 


GOTO 1650 


aR'y 


Ê ERTALH A s. 
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DIC. i.Q.N 5 BIO Cobol/Intelligent Terminal 


continuação 
COBOL (Common Business Griented Language) - Linguagem de Alto Nível, usada em pro 
cessamento de problemas principalmente do ramo comercial 


COMPILER - Programa cuja função é ler outro programa escrito numa linguagem de 
alto nível, tal como o COBOL ou FORTRAR , convertendo-o num oddigo máquina a que 
o computador possa obedecer. 


CP/M (Control Program/Microprocessor) - Sistema operativo cem discos para micro- 
computadores, usando os processadores 8080 e Z80 


CPS (ou CHPS) - Caracteres por segundo. 


CUTS (Computer Users” Tape System) - modelo para gravação de dados em cassete. 


DAISY WHEEL - Componente de uma impressora sequenolal, cujos caracteres estão na 
periferia de um disco plástico. 


DATA BASE - Sistema para organizar elementos de informação numa série de oódigos 
máquina, de tal modo que um programa possa imediatamente seleccionar qualquer a- 
bstracção particular ou combinação de informação que venha a ser chamada. P. ex., 
um cliente de uma base de dados pode íncluír detalhes completos de todos os cli- 
entes (conforme requerido por departamentos de serviços e distribuição ou vendas 
e marketing) e também de toda a entrega e pedidos de serviço, assim como cada ar 
tigo facturado para esses clientes no espaço de um ano ou mais. Um programa pos= 
teríor pode permitir o acesso a bases de dados sobre questões do tipo * Adoréi t4 
cação dos clientes que compram mais de 1 000 contos de um artigo REA: menos de 


S entregas, e que recebem menos de 2 pedidos de serviço no ano” br 


DEBUG - Para corrígir erros num programa. 


DISC (DISK) - Dispositivo de armazenamento magnético que permite um rápido aces» 
só aleatório a qualquer selecção de um grande volume de dados. Um disco rígido 
de grandes dimensões contém aproximadamente 5 “megabytes” ou mais, um “floppy 
disc” geralmente contém entre 80 a 250 “kilobytes”, mas em qualquer dos casos a 
capacídade vaí aumentando a todo o tempos | 


DISKETIE = “Floppy disc”, especialmente o de tamanho mais pequeno. 5 1,qu 


DOS (Disc Opera' :ng Sistem) - Sistema operativo por computador, cujo suporte é um 

disco magnético em vez da memória ROM. Um processo iricial copiará o sistema ope- 

ratívo para a memória sempre que o computador seja lígado. É também um sistema o- 

perativo que controla os próprios discos e que pode completar, em vez de substitu 
ir, o sístema da operação inicial. 


a = 


DUPLEX - Tipo de transmissão de dados no qual cada estação pode enviar e receber 


simultaneamente. 


DYNAMIC (Memória) - Memória de Acesso Aleatório (RAM) que requer frequentes si- 
nais de realimentação, mas que, normalmente, gasta menos energia que a memgria 
estática. 





— —— — e — — ss 


EAROM (Electrically Alterable Read Only Memory) - Levando geralmente 10 mseg. pa 
ra apagar, e 1 mseg, para escxever, este armazenamento não-volátil deveria ser 
melhor classificado como “Read Mostly Memory” (meméria quase exclusivamente de 
leitura), dado que a sua capacidade atinge um limite de aproximadamente 100 000 
ciclos. 


e 
EDIT — Alteração do texto no programa ou séries de dados, Quase sempre, alguns 


sistemas fazem edições mais facilmente que outros. 


EPROM (Erasable Programmable Read Only Memory) - Demora normalmente um minuto a 
escrever e 10 ou mais minutos a apagar, através de raios ultra-violetas. 


-— -— . sx É 2004 om — 


FIRMWARE - Instruções ou dados permanentemente armazenados em ROM 


FLOPPY (diso) - Memória de massa que incluí um disco flexível com uma superfície 
magnética, onde os dados são gravados, e aos quais se tem rápido acesso movendo 

a cabeça de leitura/escrita, O disco, que pode ter 8” o 5 1,4” de diametro, ro 
da nó interior de uma embalagem protectora. 


FORTRAN (Formula Translation) - Linguagem de programação de alto nível que, ape= , 
sar de não ser recente, é ainda mito usada principalmente no mundo científico. 





HARD COPY = Cépia em papel tírada por uma impressora. 


Ed 


HARDWARE - Elementos físicos de um computador (em oposição a "software”) 


HIGH-LEVEL LANGUAGE - Linguagem de programação semelhante À linguagem natural e 
com instruções poderosas que produzem várias instruções em linguagem máquina» Al- 

guns exemplos: BASIC, COBOL e FORTRAN,. | 

INTELLIGENT TER' .NAL - Um dispositivo de entrada e saída, que inclui os seus pré- 

prios circuitos lógicos e memôria, de modo que, Pe “Xe, à disposição dos dados po 
de ser validada ou alterada antes da transmissão para o computador central. 


Ed ) . , “ 
Lenbrímos 14 no inletor nº neYcs  toltsmoz cver- 5 ineistir, que o Clrre 
e Ed id “ . - 
RA q SC ncde a!ectrivanento péos cemir cs coro o.joctivos « vomercrments 
4“ porlização e aistriimição dos inlatino ace cmo mpusmitos - css Porsuir os 
5 . 4 
nezessirios meios aconémicose. 


á ; O dx à ã R o 
inês é divulgação no semanário *O isrnal” (NS. 10.02) da existencia do Oi 


be Z-Pf , vários utilizadores 4. T:c1 de todo o país nos ter contectado, 


folicitando-nos por esta iniciativa e ranifeztando interessa em acsnciare 


=30e "ão obstante, as pessoas ep nesta monento estTo inscritas nfo s£o 
aicda sufisiertos para coLrir as d-sposas cpm uma tarafa Geste tino irolit 


“10 
O) : | - 4 . 
C futiro do Clule dapenca do todos ríe, Por i-so, se realrento está Í:itCe 


jessetn om per um dos seus memros, solicitaros-lhe eme faça a sua Írscri 


7ão é paramento - pela modalidasa ve mais Jkn convier ( arual, corestral 
- ————— — o ——me—- —— e — — em cu ce o «co cum —— ne cm am, o 








nt trimastraldo 
— — se aa — a mo 


Por razões que decarto todos comprecndarto, o boletim nº 2, a ser púlic. 


. 4 * 4 + . 
co cm Neveenbro, aperes roré atutci cuido às pessoas que tiverem corfirmado 


ca Sá inscrição. 


eranos um eupão do inscriecã:, irandoe - cxsardar à sua resmmostas 






sq 
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Vs + 






IMITA do CO DOER ATA DTD idda de CSM dd 





IDADE EsES-ECO 
toi ai OO O am tntas us “saneoeCaRABAGEO soon, as 
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COrPUTADOR DRE CA À ida cn dd TEU SU dA ddS 






.. 
em e. 
PRO Lens pa sa Ena saida dA ATER SUA E 


CUDSPIÇÃO O ANAL  CTINEA,  IRIKEITPAL 
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Cr uL nº 
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